﻿Public Class ReportReservationList

    Private Sub ReportReservationList_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim path = Application.StartupPath + "\CrystalReport\Report1.rpt"

        Dim app As New CRAXDDRT.Application()
        Dim doc = app.OpenReport(path)
        crviewer1.ReportSource = doc
        crviewer1.ViewReport()

    End Sub
End Class